unit UPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm, uniGUIBaseClasses, uniLabel, DBXFirebird, FMTBcd,
  DB, Provider, DBClient, SqlExpr, uniBasicGrid, uniDBGrid, uniMultiItem,
  uniComboBox, uniDBComboBox, uniDateTimePicker, uniDBDateTimePicker, uniEdit,
  uniDBEdit, uniButton;

type
  TRegistro_usuarios = class(TUniForm)
    BNuevo: TUniButton;
    BGuardar: TUniButton;
    BCancelar: TUniButton;
    BEditar: TUniButton;
    BBorrar: TUniButton;
    BActualizar: TUniButton;
    BPrimero: TUniButton;
    BAnterior: TUniButton;
    BSiguiente: TUniButton;
    BUltimo: TUniButton;
    LLogin: TUniLabel;
    LClave: TUniLabel;
    LCod_usu: TUniLabel;
    LCaduca: TUniLabel;
    LPrivilegio: TUniLabel;
    LFecha_carga: TUniLabel;
    LOperador: TUniLabel;
    UniDBEdit1: TUniDBEdit;
    UniDBEdit2: TUniDBEdit;
    UniDBEdit3: TUniDBEdit;
    UniDBEdit7: TUniDBEdit;
    UniDBDateTimePicker1: TUniDBDateTimePicker;
    UniDBDateTimePicker2: TUniDBDateTimePicker;
    UniDBComboBox1: TUniDBComboBox;
    UniDBGrid1: TUniDBGrid;
    SQLCReg: TSQLConnection;
    SQLQReg: TSQLQuery;
    CDSReg: TClientDataSet;
    DSPReg: TDataSetProvider;
    DSReg: TDataSource;
    SQLQRegLOGIN: TStringField;
    SQLQRegCOD_GENERAL_USU: TLargeintField;
    SQLQRegCLAVE: TStringField;
    SQLQRegCADUCA: TDateField;
    SQLQRegPERFIL_PRIVILEGIO: TStringField;
    SQLQRegFECHA_CARGA: TDateField;
    SQLQRegOPERADOR: TStringField;
    CDSRegLOGIN: TStringField;
    CDSRegCOD_GENERAL_USU: TLargeintField;
    CDSRegCLAVE: TStringField;
    CDSRegCADUCA: TDateField;
    CDSRegPERFIL_PRIVILEGIO: TStringField;
    CDSRegFECHA_CARGA: TDateField;
    CDSRegOPERADOR: TStringField;
    UniLabel1: TUniLabel;
    procedure BNuevoClick(Sender: TObject);
    procedure BGuardarClick(Sender: TObject);
    procedure BCancelarClick(Sender: TObject);
    procedure BEditarClick(Sender: TObject);
    procedure BBorrarClick(Sender: TObject);
    procedure BActualizarClick(Sender: TObject);
    procedure BPrimeroClick(Sender: TObject);
    procedure BAnteriorClick(Sender: TObject);
    procedure BSiguienteClick(Sender: TObject);
    procedure BUltimoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function Registro_usuarios: TRegistro_usuarios;

implementation

{$R *.dfm}

uses
  MainModule;

function Registro_usuarios: TRegistro_usuarios;
begin
  Result := TRegistro_usuarios(UniMainModule.GetFormInstance(TRegistro_usuarios));
end;



procedure TRegistro_usuarios.BActualizarClick(Sender: TObject);
begin
CDSReg.Refresh;
end;

procedure TRegistro_usuarios.BAnteriorClick(Sender: TObject);
begin
CDSReg.Prior;
end;

procedure TRegistro_usuarios.BBorrarClick(Sender: TObject);
begin
CDSReg.Delete;
end;

procedure TRegistro_usuarios.BCancelarClick(Sender: TObject);
begin
CDSReg.Cancel;
end;

procedure TRegistro_usuarios.BEditarClick(Sender: TObject);
begin
CDSReg.Edit;
end;

procedure TRegistro_usuarios.BGuardarClick(Sender: TObject);
begin
CDSReg.ApplyUpdates(0);
end;

procedure TRegistro_usuarios.BNuevoClick(Sender: TObject);
begin
CDSReg.Insert;
end;

procedure TRegistro_usuarios.BPrimeroClick(Sender: TObject);
begin
CDSReg.First;
end;

procedure TRegistro_usuarios.BSiguienteClick(Sender: TObject);
begin
CDSReg.Next;
end;

procedure TRegistro_usuarios.BUltimoClick(Sender: TObject);
begin
CDSReg.Last;
end;

end.
